home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / gri_ssa.inc < prev    next >
Text File  |  1998-07-22  |  8KB  |  484 lines
  1. *---------------------------------------
  2. *
  3. *    âOâèâhò\Ī
  4. *
  5. *    Æ┤òKÄEïZ
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. gri_ssa_s:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     tst.w    C_LR_F(a1)
  14.     bne    @f
  15.  
  16.     subi.w    #16,d1
  17.     subi.w    #24,d2
  18.     addi.w    #$0030,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d1
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     subi.w    #16,d1
  32.     addi.w    #16,d2
  33.     addq.w    #1,d7
  34.     move.w    d1,(a6)+
  35.     move.w    d2,(a6)+
  36.     move.w    d7,(a6)+
  37.     move.w    #$0003,(a6)+
  38.  
  39.     addi.w    #16,d1
  40.     addq.w    #1,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     subi.w    #16,d1
  47.     addi.w    #16,d2
  48.     addq.w    #1,d7
  49.     move.w    d1,(a6)+
  50.     move.w    d2,(a6)+
  51.     move.w    d7,(a6)+
  52.     move.w    #$0003,(a6)+
  53.  
  54.     addi.w    #16,d1
  55.     addq.w    #1,d7
  56.     move.w    d1,(a6)+
  57.     move.w    d2,(a6)+
  58.     move.w    d7,(a6)+
  59.     move.w    #$0003,(a6)+
  60.  
  61.     rts
  62. @@:
  63.     subi.w    #16,d1
  64.     subi.w    #24,d2
  65.     addi.w    #$4031,d7
  66.     move.w    d1,(a6)+
  67.     move.w    d2,(a6)+
  68.     move.w    d7,(a6)+
  69.     move.w    #$0003,(a6)+
  70.  
  71.     addi.w    #16,d1
  72.     subq.w    #$1,d7
  73.     move.w    d1,(a6)+
  74.     move.w    d2,(a6)+
  75.     move.w    d7,(a6)+
  76.     move.w    #$0003,(a6)+
  77.  
  78.     subi.w    #16,d1
  79.     addi.w    #16,d2
  80.     addq.w    #3,d7
  81.     move.w    d1,(a6)+
  82.     move.w    d2,(a6)+
  83.     move.w    d7,(a6)+
  84.     move.w    #$0003,(a6)+
  85.  
  86.     addi.w    #16,d1
  87.     subq.w    #1,d7
  88.     move.w    d1,(a6)+
  89.     move.w    d2,(a6)+
  90.     move.w    d7,(a6)+
  91.     move.w    #$0003,(a6)+
  92.  
  93.     subi.w    #16,d1
  94.     addi.w    #16,d2
  95.     addq.w    #3,d7
  96.     move.w    d1,(a6)+
  97.     move.w    d2,(a6)+
  98.     move.w    d7,(a6)+
  99.     move.w    #$0003,(a6)+
  100.  
  101.     addi.w    #16,d1
  102.     subq.w    #1,d7
  103.     move.w    d1,(a6)+
  104.     move.w    d2,(a6)+
  105.     move.w    d7,(a6)+
  106.     move.w    #$0003,(a6)+
  107.  
  108.     rts
  109. *---------------------------------------
  110. gri_ssa_a:
  111.     move.w    C_X(a1),d1
  112.     move.w    C_Y(a1),d2
  113.     tst.w    C_LR_F(a1)
  114.     bne    @f
  115.  
  116.     subi.w    #16,d1
  117.     subi.w    #24,d2
  118.     addi.w    #$0036,d7
  119.     move.w    d1,(a6)+
  120.     move.w    d2,(a6)+
  121.     move.w    d7,(a6)+
  122.     move.w    #$0003,(a6)+
  123.  
  124.     addi.w    #16,d1
  125.     addq.w    #1,d7
  126.     move.w    d1,(a6)+
  127.     move.w    d2,(a6)+
  128.     move.w    d7,(a6)+
  129.     move.w    #$0003,(a6)+
  130.  
  131.     subi.w    #16,d1
  132.     addi.w    #16,d2
  133.     addq.w    #1,d7
  134.     move.w    d1,(a6)+
  135.     move.w    d2,(a6)+
  136.     move.w    d7,(a6)+
  137.     move.w    #$0003,(a6)+
  138.  
  139.     addi.w    #16,d1
  140.     addq.w    #1,d7
  141.     move.w    d1,(a6)+
  142.     move.w    d2,(a6)+
  143.     move.w    d7,(a6)+
  144.     move.w    #$0003,(a6)+
  145.  
  146.     subi.w    #16,d1
  147.     addi.w    #16,d2
  148.     addq.w    #1,d7
  149.     move.w    d1,(a6)+
  150.     move.w    d2,(a6)+
  151.     move.w    d7,(a6)+
  152.     move.w    #$0003,(a6)+
  153.  
  154.     addi.w    #16,d1
  155.     addq.w    #1,d7
  156.     move.w    d1,(a6)+
  157.     move.w    d2,(a6)+
  158.     move.w    d7,(a6)+
  159.     move.w    #$0003,(a6)+
  160.  
  161.     addi.w    #16,d1
  162.     subi.w    #32,d2
  163.     addq.w    #1,d7
  164.     move.w    d1,(a6)+
  165.     move.w    d2,(a6)+
  166.     move.w    d7,(a6)+
  167.     move.w    #$0003,(a6)+
  168.  
  169.     addi.w    #16,d1
  170.     addq.w    #1,d7
  171.     move.w    d1,(a6)+
  172.     move.w    d2,(a6)+
  173.     move.w    d7,(a6)+
  174.     move.w    #$0003,(a6)+
  175.  
  176.     addi.w    #16,d1
  177.     addq.w    #1,d7
  178.     move.w    d1,(a6)+
  179.     move.w    d2,(a6)+
  180.     move.w    d7,(a6)+
  181.     move.w    #$0003,(a6)+
  182.  
  183.     addi.w    #16,d1
  184.     addq.w    #1,d7
  185.     move.w    d1,(a6)+
  186.     move.w    d2,(a6)+
  187.     move.w    d7,(a6)+
  188.     move.w    #$0003,(a6)+
  189.  
  190.     subi.w    #48,d1
  191.     addi.w    #16,d2
  192.     addq.w    #1,d7
  193.     move.w    d1,(a6)+
  194.     move.w    d2,(a6)+
  195.     move.w    d7,(a6)+
  196.     move.w    #$0003,(a6)+
  197.  
  198.     addi.w    #16,d1
  199.     addq.w    #1,d7
  200.     move.w    d1,(a6)+
  201.     move.w    d2,(a6)+
  202.     move.w    d7,(a6)+
  203.     move.w    #$0003,(a6)+
  204.  
  205.     addi.w    #16,d1
  206.     addq.w    #1,d7
  207.     move.w    d1,(a6)+
  208.     move.w    d2,(a6)+
  209.     move.w    d7,(a6)+
  210.     move.w    #$0003,(a6)+
  211.  
  212.     addi.w    #16,d1
  213.     addq.w    #1,d7
  214.     move.w    d1,(a6)+
  215.     move.w    d2,(a6)+
  216.     move.w    d7,(a6)+
  217.     move.w    #$0003,(a6)+
  218.  
  219.     subi.w    #48,d1
  220.     addi.w    #16,d2
  221.     addq.w    #1,d7
  222.     move.w    d1,(a6)+
  223.     move.w    d2,(a6)+
  224.     move.w    d7,(a6)+
  225.     move.w    #$0003,(a6)+
  226.  
  227.     addi.w    #16,d1
  228.     addq.w    #1,d7
  229.     move.w    d1,(a6)+
  230.     move.w    d2,(a6)+
  231.     move.w    d7,(a6)+
  232.     move.w    #$0003,(a6)+
  233.  
  234.     addi.w    #16,d1
  235.     addq.w    #1,d7
  236.     move.w    d1,(a6)+
  237.     move.w    d2,(a6)+
  238.     move.w    d7,(a6)+
  239.     move.w    #$0003,(a6)+
  240.  
  241.     addi.w    #16,d1
  242.     addq.w    #1,d7
  243.     move.w    d1,(a6)+
  244.     move.w    d2,(a6)+
  245.     move.w    d7,(a6)+
  246.     move.w    #$0003,(a6)+
  247.  
  248.     rts
  249. @@:
  250.     subi.w    #16,d1
  251.     subi.w    #24,d2
  252.     addi.w    #$4037,d7
  253.     move.w    d1,(a6)+
  254.     move.w    d2,(a6)+
  255.     move.w    d7,(a6)+
  256.     move.w    #$0003,(a6)+
  257.  
  258.     addi.w    #16,d1
  259.     subq.w    #1,d7
  260.     move.w    d1,(a6)+
  261.     move.w    d2,(a6)+
  262.     move.w    d7,(a6)+
  263.     move.w    #$0003,(a6)+
  264.  
  265.     subi.w    #16,d1
  266.     addi.w    #16,d2
  267.     addq.w    #3,d7
  268.     move.w    d1,(a6)+
  269.     move.w    d2,(a6)+
  270.     move.w    d7,(a6)+
  271.     move.w    #$0003,(a6)+
  272.  
  273.     addi.w    #16,d1
  274.     subq.w    #1,d7
  275.     move.w    d1,(a6)+
  276.     move.w    d2,(a6)+
  277.     move.w    d7,(a6)+
  278.     move.w    #$0003,(a6)+
  279.  
  280.     subi.w    #16,d1
  281.     addi.w    #16,d2
  282.     addq.w    #3,d7
  283.     move.w    d1,(a6)+
  284.     move.w    d2,(a6)+
  285.     move.w    d7,(a6)+
  286.     move.w    #$0003,(a6)+
  287.  
  288.     addi.w    #16,d1
  289.     subq.w    #1,d7
  290.     move.w    d1,(a6)+
  291.     move.w    d2,(a6)+
  292.     move.w    d7,(a6)+
  293.     move.w    #$0003,(a6)+
  294.  
  295.     subi.w    #32,d1
  296.     subi.w    #32,d2
  297.     addq.w    #2,d7
  298.     move.w    d1,(a6)+
  299.     move.w    d2,(a6)+
  300.     move.w    d7,(a6)+
  301.     move.w    #$0003,(a6)+
  302.  
  303.     subi.w    #16,d1
  304.     addq.w    #1,d7
  305.     move.w    d1,(a6)+
  306.     move.w    d2,(a6)+
  307.     move.w    d7,(a6)+
  308.     move.w    #$0003,(a6)+
  309.  
  310.     subi.w    #16,d1
  311.     addq.w    #1,d7
  312.     move.w    d1,(a6)+
  313.     move.w    d2,(a6)+
  314.     move.w    d7,(a6)+
  315.     move.w    #$0003,(a6)+
  316.  
  317.     subi.w    #16,d1
  318.     addq.w    #1,d7
  319.     move.w    d1,(a6)+
  320.     move.w    d2,(a6)+
  321.     move.w    d7,(a6)+
  322.     move.w    #$0003,(a6)+
  323.  
  324.     addi.w    #48,d1
  325.     addi.w    #16,d2
  326.     addq.w    #1,d7
  327.     move.w    d1,(a6)+
  328.     move.w    d2,(a6)+
  329.     move.w    d7,(a6)+
  330.     move.w    #$0003,(a6)+
  331.  
  332.     subi.w    #16,d1
  333.     addq.w    #1,d7
  334.     move.w    d1,(a6)+
  335.     move.w    d2,(a6)+
  336.     move.w    d7,(a6)+
  337.     move.w    #$0003,(a6)+
  338.  
  339.     subi.w    #16,d1
  340.     addq.w    #1,d7
  341.     move.w    d1,(a6)+
  342.     move.w    d2,(a6)+
  343.     move.w    d7,(a6)+
  344.     move.w    #$0003,(a6)+
  345.  
  346.     subi.w    #16,d1
  347.     addq.w    #1,d7
  348.     move.w    d1,(a6)+
  349.     move.w    d2,(a6)+
  350.     move.w    d7,(a6)+
  351.     move.w    #$0003,(a6)+
  352.  
  353.     addi.w    #48,d1
  354.     addi.w    #16,d2
  355.     addq.w    #1,d7
  356.     move.w    d1,(a6)+
  357.     move.w    d2,(a6)+
  358.     move.w    d7,(a6)+
  359.     move.w    #$0003,(a6)+
  360.  
  361.     subi.w    #16,d1
  362.     addq.w    #1,d7
  363.     move.w    d1,(a6)+
  364.     move.w    d2,(a6)+
  365.     move.w    d7,(a6)+
  366.     move.w    #$0003,(a6)+
  367.  
  368.     subi.w    #16,d1
  369.     addq.w    #1,d7
  370.     move.w    d1,(a6)+
  371.     move.w    d2,(a6)+
  372.     move.w    d7,(a6)+
  373.     move.w    #$0003,(a6)+
  374.  
  375.     subi.w    #16,d1
  376.     addq.w    #1,d7
  377.     move.w    d1,(a6)+
  378.     move.w    d2,(a6)+
  379.     move.w    d7,(a6)+
  380.     move.w    #$0003,(a6)+
  381.  
  382.     rts
  383. *---------------------------------------
  384. gri_ssa_t:
  385.     move.w    C_X(a1),d1
  386.     move.w    C_Y(a1),d2
  387.     tst.w    C_LR_F(a1)
  388.     bne    @f
  389.  
  390.     subi.w    #16,d1
  391.     subi.w    #24,d2
  392.     addi.w    #$0036,d7
  393.     move.w    d1,(a6)+
  394.     move.w    d2,(a6)+
  395.     move.w    d7,(a6)+
  396.     move.w    #$0003,(a6)+
  397.  
  398.     addi.w    #16,d1
  399.     addq.w    #1,d7
  400.     move.w    d1,(a6)+
  401.     move.w    d2,(a6)+
  402.     move.w    d7,(a6)+
  403.     move.w    #$0003,(a6)+
  404.  
  405.     subi.w    #16,d1
  406.     addi.w    #16,d2
  407.     addq.w    #1,d7
  408.     move.w    d1,(a6)+
  409.     move.w    d2,(a6)+
  410.     move.w    d7,(a6)+
  411.     move.w    #$0003,(a6)+
  412.  
  413.     addi.w    #16,d1
  414.     addq.w    #1,d7
  415.     move.w    d1,(a6)+
  416.     move.w    d2,(a6)+
  417.     move.w    d7,(a6)+
  418.     move.w    #$0003,(a6)+
  419.  
  420.     subi.w    #16,d1
  421.     addi.w    #16,d2
  422.     addq.w    #1,d7
  423.     move.w    d1,(a6)+
  424.     move.w    d2,(a6)+
  425.     move.w    d7,(a6)+
  426.     move.w    #$0003,(a6)+
  427.  
  428.     addi.w    #16,d1
  429.     addq.w    #1,d7
  430.     move.w    d1,(a6)+
  431.     move.w    d2,(a6)+
  432.     move.w    d7,(a6)+
  433.     move.w    #$0003,(a6)+
  434.  
  435.     rts
  436. @@:
  437.     subi.w    #16,d1
  438.     subi.w    #24,d2
  439.     addi.w    #$4037,d7
  440.     move.w    d1,(a6)+
  441.     move.w    d2,(a6)+
  442.     move.w    d7,(a6)+
  443.     move.w    #$0003,(a6)+
  444.  
  445.     addi.w    #16,d1
  446.     subq.w    #1,d7
  447.     move.w    d1,(a6)+
  448.     move.w    d2,(a6)+
  449.     move.w    d7,(a6)+
  450.     move.w    #$0003,(a6)+
  451.  
  452.     subi.w    #16,d1
  453.     addi.w    #16,d2
  454.     addq.w    #3,d7
  455.     move.w    d1,(a6)+
  456.     move.w    d2,(a6)+
  457.     move.w    d7,(a6)+
  458.     move.w    #$0003,(a6)+
  459.  
  460.     addi.w    #16,d1
  461.     subq.w    #1,d7
  462.     move.w    d1,(a6)+
  463.     move.w    d2,(a6)+
  464.     move.w    d7,(a6)+
  465.     move.w    #$0003,(a6)+
  466.  
  467.     subi.w    #16,d1
  468.     addi.w    #16,d2
  469.     addq.w    #3,d7
  470.     move.w    d1,(a6)+
  471.     move.w    d2,(a6)+
  472.     move.w    d7,(a6)+
  473.     move.w    #$0003,(a6)+
  474.  
  475.     addi.w    #16,d1
  476.     subq.w    #1,d7
  477.     move.w    d1,(a6)+
  478.     move.w    d2,(a6)+
  479.     move.w    d7,(a6)+
  480.     move.w    #$0003,(a6)+
  481.  
  482.     rts
  483. *---------------------------------------
  484.